home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 July / Ahoy_Magazine_86-07_1986_Double_L.d64 / crazy joe (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  87 lines
  1. 40 poke53281,0:poke53280,0
  2. 50 c=0:forz=12288to12415:readq:pokez,q:c=c+q:nextz
  3. 60 ifc<>11890thenprint"error in data --> lines 590-740":end
  4. 70 c=0:fora=828to907:readd:pokea,d:c=c+d:next
  5. 80 ifc<>9217thenprint"error in data --> lines 760-890":end
  6. 90 print"[147][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  7. 100 print"[145][159]               crazy joe                "
  8. 110 print"[145][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  9. 120 printspc(13)"(f1) easy"
  10. 130 printspc(13)"(f3) normal"
  11. 140 printspc(13)"(f5) difficult"
  12. 150 printspc(13)"fire[146] previous choice"
  13. 160 ad=56320:v=53248:pokev+30,0:c1=0:sc%=0:f=.02
  14. 170 sys828
  15. 180 poke2040,192:ford=1to6:d(d)=0:poked+2040,193:nextd
  16. 190 x=int((rnd(1)*85)+20)*2
  17. 200 pokev+1,180
  18. 210 pokev+29,126:pokev+23,126:pokev+39,1:pokev+28,1:pokev+37,0:pokev+38,6
  19. 220 forbb=1to6:pokev+bb*2,0:b(bb)=-19+(bb*39.9):next
  20. 230 bb=int(rnd(1)*6+1):ab=int(rnd(1)*6+1)*2:ifb(bb)=0orpeek(v+ab)<>0then230
  21. 240 pokev+ab,b(bb):b(bb)=0:c1=c1+1:ifc1=6then270
  22. 250 poke54296,15:poke54277,8:poke54278,248
  23. 260 poke54273,100:poke54272,100:poke54276,23:forll=1to40:next:poke54276,16:goto230
  24. 270 getk$:ifk$="[133]"thenc$="easy":r=1.5:goto320
  25. 280 ifk$="[135]"thenc$="difficult":r=5:goto320
  26. 290 ife=1and(peek(ad)and16)=0thenr=rr:goto325
  27. 300 ifk$<>"[134]"then270
  28. 310 r=3:c$="normal"
  29. 320 rr=r
  30. 325 pokev,x:pokev+21,127:e=1
  31. 330 print"[147]":forz=.to23:print"[151][199]   [200][199]   [200][199]   [200][199]   [200][199]   [200][199]   [200]":nextz
  32. 340 print"[199]   [200][199]   [200][199]   [200][199]   [200][199]   [200][199]   [200]";
  33. 350 print""spc(31)"sc:":printspc(31)"[154]hi:"hs%
  34. 360 printspc(31)"[159]level:"
  35. 370 printspc(31)c$"
  36. 380 sc%[178]sc%[170]1:[153]""[166]34)sc%:[161]k$:[139]k$[178]" "[167][151]v[170]21,0:[137]90
  37. 390 r[178]r[170]f:[139][194](v)[178]20[176][194](v)[178]244[167]a$[178]"you ran off the road!":[137]440
  38. 400 [129]m[178]1[164]6:d(m)[178]d(m)[170]m[172]r:[139]d(m)[178][177]255[167]d(m)[178]0:[151]v[170]39[170]m,[181]([187](1)[172]10)
  39. 410 [151]v[170](m[172]2)[170]1,d(m):[130]
  40. 420 [139]([194](v[170]30)[175]1)[175]sc%[177]3[167]a$[178]" you ran into a car! ":[137]440
  41. 430 [137]380
  42. 440 [139]sc%[177]hs%[167]hs%[178]sc%:[129]l[178]54272[164]l[170]23:[151]l,0:[130]
  43. 450 [151]56334,[194](56334)[175]254:[151]2040,13
  44. 470 [151]54277,27:[151]54278,5:[151]54276,129:[151]54273,4:[129]qq[178]1[164]110:[130]
  45. 480 [151]54273,5:[151]54272,1:[151]54296,15
  46. 490 [129]qq[178]1[164]255:[151]v[170]39,qq:[130]
  47. 500 [153]"load          "a$"         "
  48. 510 [153]"score"sc%[163]26)"high score"hs%
  49. 520 [151]v[170]21,0:[151]56334,[194](56334)[176]1
  50. 530 [153][166]7)"wait press firewait to play again"
  51. 540 [153][166]10)"push forward to quit"
  52. 550 [139][168][194](ad)[175]16[167]90
  53. 560 [139]([194](ad)[175]15)[178]14[167][128]
  54. 570 [137]550
  55. 580 [143]*sprite data*
  56. 590 [131]0,20,0,0,20,0,0,20
  57. 600 [131]0,0,150,0,0,215,0,0
  58. 610 [131]215,0,0,215,0,0,195,0
  59. 620 [131]0,252,0,2,170,128,8,60
  60. 630 [131]32,8,60,32,8,40,32,0
  61. 640 [131]235,0,0,235,0,1,235,64
  62. 650 [131]0,235,0,0,235,0,0,255
  63. 660 [131]0,0,20,0,0,20,0,0
  64. 670 [131]3,255,192,6,255,96,15,255
  65. 680 [131]240,15,255,240,15,255,240,14
  66. 690 [131]0,112,6,255,96,7,126,224
  67. 700 [131]7,0,224,7,255,224,7,255
  68. 710 [131]224,7,255,224,7,255,224,7
  69. 720 [131]255,224,15,0,240,15,126,240
  70. 730 [131]15,0,240,15,255,240,7,255
  71. 740 [131]224,3,255,192,1,0,128,169
  72. 750 [143]*ml data*
  73. 760 [131]120,169,73,141,20,3
  74. 770 [131]169,3,141,21,3,88
  75. 780 [131]96,174,0,208,173,0
  76. 790 [131]220,41,15,201,7,240
  77. 800 [131]7,201,11,240,12,76
  78. 810 [131]107,3,224,244,240,11
  79. 820 [131]232,232,76,107,3,224
  80. 830 [131]20,240,2,202,202,142
  81. 840 [131]0,208,173,0,220,41
  82. 850 [131]16,172,1,208,201,16
  83. 860 [131]240,6,192,50,240,6
  84. 870 [131]136,136,192,230,240,1
  85. 880 [131]200,140,1,208,76,49
  86. 890 [131]234,0
  87.